﻿Imports Microsoft.VisualBasic
Imports Microsoft.VisualStudio.TestTools.UnitTesting
Imports CustomTshirtFinal




<TestClass()> _
Public Class UsuarioNegocioTest

    <TestMethod()> _
    Public Sub insertarTest()
        Dim negocio As New UsuarioNegocio()

        Try
            Dim modelo = negocio.insertar("Denilson", "Camargo", 34234, "palero", "NOsape", "calero")

            Console.Write(modelo.idUsuario)

            'Assert.AreEqual(6, modelo.idUsuario)

        Catch ex As DAOExcepcion
            Assert.Fail(ex.ToString())
        End Try

    End Sub
    <TestMethod()> _
    Public Sub eliminarTest()
        Dim modelo As UsuarioNegocio = New UsuarioNegocio()
        Dim idUsuario As Integer = 5
        Try
            modelo.eliminar(idUsuario)
        Catch ex As DAOExcepcion

            Assert.Fail(ex.ToString())
        End Try
    End Sub

    <TestMethod()> _
    Public Sub listarTest()
        Dim modelo As UsuarioNegocio = New UsuarioNegocio()
        Try
            modelo.listar()
        Catch ex As DAOExcepcion

            Assert.Fail(ex.ToString())
        End Try
    End Sub

    <TestMethod()> _
    Public Sub actualizarTest()
        Dim modelo As UsuarioNegocio = New UsuarioNegocio()

        Try
            modelo.actualizar(11, "Diego", "Calero", 23234234, "hotmail", "hombre", "coerdero")

        Catch ex As Exception
            Assert.Fail(ex.ToString())
        End Try
    End Sub



End Class

